﻿
Imports System.IO
Imports std

Public Class xhtmlControl_1_1_loose
    Inherits xhtmlControl_1_1

    Public Sub New(ByRef buff As MemoryStream, ByRef tag As String)
        MyBase.New(buff, tag)
    End Sub

    Public Overrides Property xml_space() As xml_space_enum
        Get
            If availableAttribute("xml:space") Then
                Return MyBase.xml_space()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As xml_space_enum)
            If availableAttribute("xml:space") Then
                MyBase.xml_space = value
            End If
        End Set
    End Property

    Public Overrides Property id() As String
        Get
            If availableAttribute("id") Then
                Return MyBase.id()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("id") Then
                MyBase.id() = value
            End If
        End Set
    End Property

    Public Overrides Property [class]() As String
        Get
            If availableAttribute("class") Then
                Return MyBase.class()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("class") Then
                MyBase.class() = value
            End If
        End Set
    End Property

    Public Overrides Property title() As String
        Get
            If availableAttribute("title") Then
                Return MyBase.title()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("title") Then
                MyBase.title() = value
            End If
        End Set
    End Property

    Public Overrides Property dir() As dir_enum
        Get
            If availableAttribute("dir") Then
                Return MyBase.dir()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As dir_enum)
            If availableAttribute("dir") Then
                MyBase.dir = value
            End If
        End Set
    End Property

    Public Overrides Property xml_lang() As String
        Get
            If availableAttribute("xml:lang") Then
                Return MyBase.xml_lang()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("xml:lang") Then
                MyBase.xml_lang() = value
            End If
        End Set
    End Property

    Public Overrides Property onclick() As String
        Get
            If availableAttribute("onclick") Then
                Return MyBase.onclick()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onclick") Then
                MyBase.onclick() = value
            End If
        End Set
    End Property

    Public Overrides Property ondblclick() As String
        Get
            If availableAttribute("ondblclick") Then
                Return MyBase.ondblclick()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("ondblclick") Then
                MyBase.ondblclick() = value
            End If
        End Set
    End Property

    Public Overrides Property onmousedown() As String
        Get
            If availableAttribute("onmousedown") Then
                Return MyBase.onmousedown()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onmousedown") Then
                MyBase.onmousedown() = value
            End If
        End Set
    End Property

    Public Overrides Property onmouseup() As String
        Get
            If availableAttribute("onmouseup") Then
                Return MyBase.onmouseup()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onmouseup") Then
                MyBase.onmouseup() = value
            End If
        End Set
    End Property

    Public Overrides Property onmouseover() As String
        Get
            If availableAttribute("onmouseover") Then
                Return MyBase.onmouseover()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onmouseover") Then
                MyBase.onmouseover() = value
            End If
        End Set
    End Property

    Public Overrides Property onmousemove() As String
        Get
            If availableAttribute("onmousemove") Then
                Return MyBase.onmousemove()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onmousemove") Then
                MyBase.onmousemove() = value
            End If
        End Set
    End Property

    Public Overrides Property onmouseout() As String
        Get
            If availableAttribute("onmouseout") Then
                Return MyBase.onmouseout()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onmouseout") Then
                MyBase.onmouseout() = value
            End If
        End Set
    End Property

    Public Overrides Property onkeypress() As String
        Get
            If availableAttribute("onkeypress") Then
                Return MyBase.onkeypress()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            MyBase.onkeypress() = value
        End Set
    End Property

    Public Overrides Property onkeydown() As String
        Get
            If availableAttribute("onkeydown") Then
                Return MyBase.onkeydown()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onkeydown") Then
                MyBase.onkeydown() = value
            End If
        End Set
    End Property

    Public Overrides Property onkeyup() As String
        Get
            If availableAttribute("onkeyup") Then
                Return MyBase.onkeyup()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            MyBase.onkeyup() = value
        End Set
    End Property

    Public Overrides Property style() As String
        Get
            If availableAttribute("style") Then
                Return MyBase.style()
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("style") Then
                MyBase.style() = value
            End If
        End Set
    End Property

    Public Overrides Property cite() As uri
        Get
            If availableAttribute("cite") Then
                Return MyBase.cite
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As uri)
            If availableAttribute("cite") Then
                MyBase.cite() = value
            End If
        End Set
    End Property

    Public Overrides Property accesskey() As String
        Get
            If availableAttribute("accesskey") Then
                Return MyBase.accesskey
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("accesskey") Then
                MyBase.accesskey() = value
            End If
        End Set
    End Property

    Public Overrides Property charset() As String
        Get
            If availableAttribute("charset") Then
                Return MyBase.charset
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("charset") Then
                MyBase.charset() = value
            End If
        End Set
    End Property

    Public Overrides Property href() As uri
        Get
            If availableAttribute("href") Then
                Return MyBase.href
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As uri)
            If availableAttribute("href") Then
                MyBase.href() = value
            End If
        End Set
    End Property

    Public Overrides Property hreflang() As String
        Get
            If availableAttribute("hreflang") Then
                Return MyBase.hreflang
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("hreflang") Then
                MyBase.hreflang() = value
            End If
        End Set
    End Property

    Public Overrides Property rel() As String
        Get
            If availableAttribute("rel") Then
                Return MyBase.rel
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("rel") Then
                MyBase.rel() = value
            End If
        End Set
    End Property

    Public Overrides Property rev() As String
        Get
            If availableAttribute("rev") Then
                Return MyBase.rev
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("rev") Then
                MyBase.rev() = value
            End If
        End Set
    End Property

    Public Overrides Property tabindex() As String
        Get
            If availableAttribute("tabindex") Then
                Return MyBase.tabindex
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("tabindex") Then
                MyBase.tabindex() = value
            End If
        End Set
    End Property

    Public Overrides Property type() As String
        Get
            If availableAttribute("type") Then
                Return MyBase.type
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("type") Then
                MyBase.type() = value
            End If
        End Set
    End Property

    Public Overrides Property archive() As String
        Get
            If availableAttribute("archive") Then
                Return MyBase.archive
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("archive") Then
                MyBase.archive() = value
            End If
        End Set
    End Property

    Public Overrides Property classid() As String
        Get
            If availableAttribute("classid") Then
                Return MyBase.classid
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("classid") Then
                MyBase.classid() = value
            End If
        End Set
    End Property

    Public Overrides Property codebase() As String
        Get
            If availableAttribute("codebase") Then
                Return MyBase.codebase
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("codebase") Then
                MyBase.codebase() = value
            End If
        End Set
    End Property

    Public Overrides Property codetype() As String
        Get
            If availableAttribute("codetype") Then
                Return MyBase.codetype
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("codetype") Then
                MyBase.codetype() = value
            End If
        End Set
    End Property

    Public Overrides Property data() As String
        Get
            If availableAttribute("data") Then
                Return MyBase.data
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("data") Then
                MyBase.data() = value
            End If
        End Set
    End Property

    Public Overrides Property [declare]() As String
        Get
            If availableAttribute("declare") Then
                Return MyBase.declare
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("declare") Then
                MyBase.declare() = value
            End If
        End Set
    End Property

    Public Overrides Property height() As String
        Get
            If availableAttribute("height") Then
                Return MyBase.height
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("height") Then
                MyBase.height() = value
            End If
        End Set
    End Property

    Public Overrides Property name() As String
        Get
            If availableAttribute("name") Then
                Return MyBase.name
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("name") Then
                MyBase.name() = value
            End If
        End Set
    End Property

    Public Overrides Property standby() As String
        Get
            If availableAttribute("standby") Then
                Return MyBase.standby
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("standby") Then
                MyBase.standby() = value
            End If
        End Set
    End Property

    Public Overrides Property width() As String
        Get
            If availableAttribute("width") Then
                Return MyBase.width
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("width") Then
                MyBase.width() = value
            End If
        End Set
    End Property

    Public Overrides Property value() As String
        Get
            If availableAttribute("value") Then
                Return MyBase.value
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("value") Then
                MyBase.value() = value
            End If
        End Set
    End Property

    Public Overrides Property valuetype() As valuetype_enum
        Get
            If availableAttribute("valuetype") Then
                Return MyBase.valuetype
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As valuetype_enum)
            If availableAttribute("valuetype") Then
                MyBase.valuetype = value
            End If
        End Set
    End Property

    Public Overrides Property datetime() As String
        Get
            If availableAttribute("datetime") Then
                Return MyBase.datetime
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("datetime") Then
                MyBase.datetime() = value
            End If
        End Set
    End Property

    Public Overrides Property accept() As String
        Get
            If availableAttribute("accept") Then
                Return MyBase.accept
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("accept") Then
                MyBase.accept() = value
            End If
        End Set
    End Property

    Public Overrides Property accept_charset() As charsets
        Get
            If availableAttribute("accept-charset") Then
                Return MyBase.accept_charset
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As charsets)
            If availableAttribute("accept-charset") Then
                MyBase.accept_charset() = value
            End If
        End Set
    End Property

    Public Overrides Property action() As uri
        Get
            If availableAttribute("action") Then
                Return MyBase.action
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As uri)
            If availableAttribute("action") Then
                MyBase.action() = value
            End If
        End Set
    End Property

    Public Overrides Property method() As method_enum
        Get
            If availableAttribute("method") Then
                Return MyBase.method
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As method_enum)
            If availableAttribute("method") Then
                MyBase.method = value
            End If
        End Set
    End Property

    Public Overrides Property enctype() As String
        Get
            If availableAttribute("enctype") Then
                Return MyBase.enctype
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("enctype") Then
                MyBase.enctype() = value
            End If
        End Set
    End Property

    Public Overrides Property alt() As String
        Get
            If availableAttribute("alt") Then
                Return MyBase.alt
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("alt") Then
                MyBase.alt() = value
            End If
        End Set
    End Property

    Public Overrides Property checked() As Boolean
        Get
            If availableAttribute("checked") Then
                Return MyBase.checked
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Boolean)
            If availableAttribute("checked") Then
                MyBase.checked = value
            End If
        End Set
    End Property

    Public Overrides Property disabled() As Boolean
        Get
            If availableAttribute("disabled") Then
                Return MyBase.disabled
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Boolean)
            If availableAttribute("disabled") Then
                MyBase.disabled = value
            End If
        End Set
    End Property

    Public Overrides Property maxlength() As Int64
        Get
            If availableAttribute("maxlength") Then
                Return MyBase.maxlength
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("maxlength") Then
                MyBase.maxlength() = value
            End If
        End Set
    End Property

    Public Overrides Property [readonly]() As Boolean
        Get
            If availableAttribute("readonly") Then
                Return MyBase.readonly
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Boolean)
            If availableAttribute("readonly") Then
                MyBase.readonly = value
            End If
        End Set
    End Property

    Public Overrides Property size() As Int64
        Get
            If availableAttribute("size") Then
                Return MyBase.size
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("size") Then
                MyBase.size() = value
            End If
        End Set
    End Property

    Public Overrides Property src() As uri
        Get
            If availableAttribute("src") Then
                Return MyBase.src
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As uri)
            If availableAttribute("src") Then
                MyBase.src() = value
            End If
        End Set
    End Property

    Public Overrides Property multiple() As Boolean
        Get
            If availableAttribute("multiple") Then
                Return MyBase.multiple
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Boolean)
            If availableAttribute("multiple") Then
                MyBase.multiple = value
            End If
        End Set
    End Property

    Public Overrides Property selected() As Boolean
        Get
            If availableAttribute("selected") Then
                Return MyBase.selected
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Boolean)
            If availableAttribute("selected") Then
                MyBase.selected = value
            End If
        End Set
    End Property

    Public Overrides Property label() As String
        Get
            If availableAttribute("label") Then
                Return MyBase.label
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("label") Then
                MyBase.label = value
            End If
        End Set
    End Property

    Public Overrides Property cols() As Int64
        Get
            If availableAttribute("cols") Then
                Return MyBase.cols
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("cols") Then
                MyBase.cols = value
            End If
        End Set
    End Property

    Public Overrides Property rows() As Int64
        Get
            If availableAttribute("rows") Then
                Return MyBase.rows
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("rows") Then
                MyBase.rows = value
            End If
        End Set
    End Property

    Public Overrides Property [for]() As IDREF
        Get
            If availableAttribute("for") Then
                Return MyBase.[for]
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As IDREF)
            If availableAttribute("for") Then
                MyBase.[for] = value
            End If
        End Set
    End Property

    Public Overrides Property border() As Int64
        Get
            If availableAttribute("border") Then
                Return MyBase.border
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("border") Then
                MyBase.border = value
            End If
        End Set
    End Property

    Public Overrides Property cellpadding() As Int64
        Get
            If availableAttribute("cellpadding") Then
                Return MyBase.cellpadding
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("cellpadding") Then
                MyBase.cellpadding = value
            End If
        End Set
    End Property

    Public Overrides Property cellspacing() As Int64
        Get
            If availableAttribute("cellspacing") Then
                Return MyBase.cellspacing
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("cellspacing") Then
                MyBase.cellspacing = value
            End If
        End Set
    End Property

    Public Overrides Property frame() As frame_enum
        Get
            If availableAttribute("frame") Then
                Return MyBase.frame
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As frame_enum)
            If availableAttribute("frame") Then
                MyBase.frame = value
            End If
        End Set
    End Property

    Public Overrides Property rules() As rules_enum
        Get
            If availableAttribute("rules") Then
                Return MyBase.rules
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As rules_enum)
            If availableAttribute("rules") Then
                MyBase.rules = value
            End If
        End Set
    End Property

    Public Overrides Property summary() As String
        Get
            If availableAttribute("summary") Then
                Return MyBase.summary
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("summary") Then
                MyBase.summary = value
            End If
        End Set
    End Property

    Public Overrides Property abbr() As String
        Get
            If availableAttribute("abbr") Then
                Return MyBase.abbr
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("abbr") Then
                MyBase.abbr = value
            End If
        End Set
    End Property

    Public Overrides Property align() As align_enum
        Get
            If availableAttribute("align") Then
                Return MyBase.align
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As align_enum)
            If availableAttribute("align") Then
                MyBase.align = value
            End If
        End Set
    End Property

    Public Overrides Property axis() As String
        Get
            If availableAttribute("axis") Then
                Return MyBase.axis
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("axis") Then
                MyBase.axis = value
            End If
        End Set
    End Property

    Public Overrides Property [char]() As character
        Get
            If availableAttribute("char") Then
                Return MyBase.[char]
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As character)
            If availableAttribute("char") Then
                MyBase.[char] = value
            End If
        End Set
    End Property

    Public Overrides Property charoff() As Int64
        Get
            If availableAttribute("charoff") Then
                Return MyBase.charoff
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("charoff") Then
                MyBase.charoff = value
            End If
        End Set
    End Property

    Public Overrides Property colspan() As Int64
        Get
            If availableAttribute("colspan") Then
                Return MyBase.colspan
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("colspan") Then
                MyBase.colspan = value
            End If
        End Set
    End Property

    Public Overrides Property headers() As IDREFS
        Get
            If availableAttribute("headers") Then
                Return MyBase.headers
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As IDREFS)
            If availableAttribute("headers") Then
                MyBase.headers = value
            End If
        End Set
    End Property

    Public Overrides Property rowspan() As Int64
        Get
            If availableAttribute("rowspan") Then
                Return MyBase.rowspan
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("rowspan") Then
                MyBase.rowspan = value
            End If
        End Set
    End Property

    Public Overrides Property scope() As scope_enum
        Get
            If availableAttribute("scope") Then
                Return MyBase.scope
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As scope_enum)
            If availableAttribute("scope") Then
                MyBase.scope = value
            End If
        End Set
    End Property

    Public Overrides Property valign() As valign_enum
        Get
            If availableAttribute("valign") Then
                Return MyBase.valign
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As valign_enum)
            If availableAttribute("valign") Then
                MyBase.valign = value
            End If
        End Set
    End Property

    Public Overrides Property span() As Long
        Get
            If availableAttribute("span") Then
                Return MyBase.span
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Long)
            If availableAttribute("span") Then
                MyBase.span = value
            End If
        End Set
    End Property

    Public Overrides Property longdesc() As uri
        Get
            If availableAttribute("longdesc") Then
                Return MyBase.longdesc
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As uri)
            If availableAttribute("longdesc") Then
                MyBase.longdesc = value
            End If
        End Set
    End Property

    Public Overrides Property coords() As String
        Get
            If availableAttribute("coords") Then
                Return MyBase.coords
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("coords") Then
                MyBase.coords = value
            End If
        End Set
    End Property

    Public Overrides Property shape() As shape_enum
        Get
            If availableAttribute("shape") Then
                Return MyBase.shape
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As shape_enum)
            If availableAttribute("shape") Then
                MyBase.shape = value
            End If
        End Set
    End Property

    Public Overrides Property usemap() As IDREF
        Get
            If availableAttribute("usemap") Then
                Return MyBase.usemap
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As IDREF)
            If availableAttribute("usemap") Then
                MyBase.usemap = value
            End If
        End Set
    End Property

    Public Overrides Property nohref() As Boolean
        Get
            If availableAttribute("nohref") Then
                Return MyBase.nohref
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Boolean)
            If availableAttribute("nohref") Then
                MyBase.nohref = value
            End If
        End Set
    End Property

    Public Overrides Property ismap() As Boolean
        Get
            If availableAttribute("ismap") Then
                Return MyBase.ismap
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Boolean)
            If availableAttribute("ismap") Then
                MyBase.ismap = value
            End If
        End Set
    End Property

    Public Overrides Property onblur() As String
        Get
            If availableAttribute("onblur") Then
                Return MyBase.onblur
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onblur") Then
                MyBase.onblur = value
            End If
        End Set
    End Property

    Public Overrides Property onfocus() As String
        Get
            If availableAttribute("onfocus") Then
                Return MyBase.onfocus
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onfocus") Then
                MyBase.onfocus = value
            End If
        End Set
    End Property

    Public Overrides Property onload() As String
        Get
            If availableAttribute("onload") Then
                Return MyBase.onload
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onload") Then
                MyBase.onload = value
            End If
        End Set
    End Property

    Public Overrides Property onunload() As String
        Get
            If availableAttribute("onunload") Then
                Return MyBase.onunload
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onunload") Then
                MyBase.onunload = value
            End If
        End Set
    End Property

    Public Overrides Property onreset() As String
        Get
            If availableAttribute("onreset") Then
                Return MyBase.onreset
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onreset") Then
                MyBase.onreset = value
            End If
        End Set
    End Property

    Public Overrides Property onsubmit() As String
        Get
            If availableAttribute("onsubmit") Then
                Return MyBase.onsubmit
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onsubmit") Then
                MyBase.onsubmit = value
            End If
        End Set
    End Property

    Public Overrides Property onchange() As String
        Get
            If availableAttribute("onchange") Then
                Return MyBase.onchange
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onchange") Then
                MyBase.onchange = value
            End If
        End Set
    End Property

    Public Overrides Property onpropertychange() As String
        Get
            If availableAttribute("onpropertychange") Then
                Return MyBase.onpropertychange
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onpropertychange") Then
                MyBase.onpropertychange = value
            End If
        End Set
    End Property

    Public Overrides Property onselect() As String
        Get
            If availableAttribute("onselect") Then
                Return MyBase.onselect
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("onselect") Then
                MyBase.onselect = value
            End If
        End Set
    End Property

    Public Overrides Property content() As String
        Get
            If availableAttribute("content") Then
                Return MyBase.content
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("content") Then
                MyBase.content = value
            End If
        End Set
    End Property

    Public Overrides Property http_equiv() As nmtoken
        Get
            If availableAttribute("http-equiv") Then
                Return MyBase.http_equiv
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As nmtoken)
            If availableAttribute("http-equiv") Then
                MyBase.http_equiv = value
            End If
        End Set
    End Property

    Public Overrides Property scheme() As String
        Get
            If availableAttribute("scheme") Then
                Return MyBase.scheme
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("scheme") Then
                MyBase.scheme = value
            End If
        End Set
    End Property

    Public Overrides Property defer() As Boolean
        Get
            If availableAttribute("defer") Then
                Return MyBase.defer
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Boolean)
            If availableAttribute("defer") Then
                MyBase.defer = value
            End If
        End Set
    End Property

    Public Overrides Property media() As mediadesc
        Get
            If availableAttribute("media") Then
                Return MyBase.media
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As mediadesc)
            If availableAttribute("media") Then
                MyBase.media = value
            End If
        End Set
    End Property

    Public Overrides Property frameborder() As Byte
        Get
            If availableAttribute("frameborder") Then
                Return MyBase.frameborder
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Byte)
            If availableAttribute("frameborder") Then
                MyBase.frameborder = value
            End If
        End Set
    End Property

    Public Overrides Property marginheight() As Int64
        Get
            If availableAttribute("marginheight") Then
                Return MyBase.marginheight
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("marginheight") Then
                MyBase.marginheight = value
            End If
        End Set
    End Property

    Public Overrides Property marginwidth() As Int64
        Get
            If availableAttribute("marginwidth") Then
                Return MyBase.marginwidth
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Int64)
            If availableAttribute("marginwidth") Then
                MyBase.marginwidth = value
            End If
        End Set
    End Property

    Public Overrides Property noresize() As Boolean
        Get
            If availableAttribute("noresize") Then
                Return MyBase.noresize
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Boolean)
            If availableAttribute("noresize") Then
                MyBase.noresize = value
            End If
        End Set
    End Property

    Public Overrides Property scrolling() As scrolling_enum
        Get
            If availableAttribute("scrolling") Then
                Return MyBase.scrolling
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As scrolling_enum)
            If availableAttribute("scrolling") Then
                MyBase.scrolling = value
            End If
        End Set
    End Property

    Public Overrides Property target() As String
        Get
            If availableAttribute("target") Then
                Return MyBase.target
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("target") Then
                MyBase.target = value
            End If
        End Set
    End Property

    Public Overrides Property code() As String
        Get
            If availableAttribute("code") Then
                Return MyBase.code
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("code") Then
                MyBase.code = value
            End If
        End Set
    End Property

    Public Overrides Property [object]() As String
        Get
            If availableAttribute("object") Then
                Return MyBase.[object]
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("object") Then
                MyBase.[object] = value
            End If
        End Set
    End Property

    Public Overrides Property color() As color
        Get
            If availableAttribute("color") Then
                Return MyBase.color
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As color)
            If availableAttribute("color") Then
                MyBase.color = value
            End If
        End Set
    End Property

    Public Overrides Property face() As String
        Get
            If availableAttribute("face") Then
                Return MyBase.face
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("face") Then
                MyBase.face = value
            End If
        End Set
    End Property

    Public Overrides Property compact() As Boolean
        Get
            If availableAttribute("compact") Then
                Return MyBase.compact
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Boolean)
            If availableAttribute("compact") Then
                MyBase.compact = value
            End If
        End Set
    End Property

    Public Overrides Property prompt() As String
        Get
            If availableAttribute("prompt") Then
                Return MyBase.prompt
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As String)
            If availableAttribute("prompt") Then
                MyBase.prompt = value
            End If
        End Set
    End Property
End Class
